﻿Imports Licenta3.Common.Framework
Imports Autodesk.AutoCAD.Runtime
Imports Licenta3.GlobalVars
Imports Licenta3.Common.Classes
Imports Licenta3.Common.Classes.Dictionar
Imports Licenta3.Commanding
Imports System.Collections.ObjectModel
Imports System.Data
Imports System.Linq
Imports System.ComponentModel
Imports Licenta3.initialization
Imports Microsoft.Office.Interop.Word
<Assembly: CommandClass(GetType(Anexa1ViewModel))> 
Public Class Anexa1ViewModel
    Inherits AnexaViewModel(Of Anexa1Class)

    Public Sub New()

        'Administrativeunit.ReadXml(assemblyPath + "\Administrativeunit.xml", XmlReadMode.InferTypedSchema)
        'MsgBox("fdsfsdfsa")
        'Anexa = New Anexa1Class
        '_Anexa1 = New Anexa1Class
        '_Setari = New SetariClass
        _TipDocCadastrala = New TipDocCadastrala
        _TipPlata = New TipPlati
        Anexa.autorizat = Setari.currentAutorizat
        Anexa.OCPI = Anexa.autorizat.DefaultOCPI
        Anexa.BCPI = Anexa.autorizat.DefaultBCPI

        'Me.UpdateAnexaUAT()
    End Sub





    Private _TipDocCadastrala As New TipDocCadastrala
    Public ReadOnly Property TipDocCadastrala As TipDocCadastrala
        Get
            Return _TipDocCadastrala
        End Get
    End Property
    Private _TipPlata As New TipPlati
    Public ReadOnly Property TipPlata As TipPlati
        Get
            Return _TipPlata
        End Get
    End Property








    '<CommandMethod(prefix + "anexa1")>
    'Public Sub Anexa1ShowDialog()
    '    Dim Anexa1Window As New ContentWindow(New Anexa1View, "Anexa1")
    '    Anexa1Window.Show()
    'End Sub
End Class
